home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00865_PH-RN.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  4.4 KB  |  111 lines
  1. on renseigne txt1, sty1, txt2, sty2, nCurs
  2.   set the textStyle of field "ZI4" to sty1
  3.   set the text of field "ZI4" to txt1
  4.   set the textStyle of field "ZI5" to "plain"
  5.   set the textStyle of field "ZI5" to sty2
  6.   set the text of field "ZI5" to txt2
  7.   curseur(nCurs)
  8. end
  9.  
  10. on exitFrame
  11.   global gPhLabel
  12.   go(label(gPhLabel))
  13. end
  14.  
  15. on idle
  16.   global gBarChron, gSurvolAct, gSurvolPrec, gListSuj, gMaxBoutons, gEtaSpir, gSujet0, g1erSprChr, g1erSprNav, g1erSprLoc, gListCod, gEtudAct, gEtatEtud, gMessDef1, gMessDef2, gMessSty1, gMessSty2, gScopePh, gListCodPhy, gListNomPhy, gListRecPhy, gListSujPhy, gSujAct, gListTimPhy, gDur
  17.   if not (the mouseDown) then
  18.     set MsCast to the mouseCast
  19.     set MouseLoc to point(the mouseH, the mouseV)
  20.     if MsCast > 0 then
  21.       if not gEtaSpir then
  22.         set gSurvolAct to 0
  23.         repeat with monSpr = g1erSprChr to g1erSprLoc
  24.           if rollOver(monSpr) and (the castNum of sprite monSpr <> 0) and the visible of sprite monSpr then
  25.             set gSurvolAct to monSpr
  26.             exit repeat
  27.           end if
  28.         end repeat
  29.         if rollOver(g1erSprLoc + 1) and ((the mouseCast = the number of cast "MSKPH 0") or (the mouseCast = the number of cast "MSKPH 1")) then
  30.           set gSurvolAct to g1erSprLoc + 1
  31.         end if
  32.         if gSurvolAct <> gSurvolPrec then
  33.           if gSurvolAct <> 0 then
  34.             if (gSurvolAct >= g1erSprChr) and (gSurvolAct <= (g1erSprChr + 9)) then
  35.               gBarChron(survol, gSurvolAct, the number of cast "ZI4")
  36.             end if
  37.             if gSurvolAct = g1erSprNav then
  38.               renseigne(getAt(gTraduit, 12), "bold", " ", gMessSty2, 7)
  39.             end if
  40.             if gSurvolAct = (g1erSprNav + 1) then
  41.               renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 3), "bold", " ", gMessSty2, 7)
  42.             end if
  43.             if gSurvolAct = (g1erSprNav + 2) then
  44.               renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 5), "bold", " ", gMessSty2, 7)
  45.             end if
  46.             if gSurvolAct = (g1erSprNav + 3) then
  47.               renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 4), "bold", " ", gMessSty2, 7)
  48.             end if
  49.             if gSurvolAct = (g1erSprNav + 4) then
  50.               renseigne(getAt(gTraduit, 26) && getAt(gTraduit, 7), "bold", " ", gMessSty2, 7)
  51.             end if
  52.             if gSurvolAct = (g1erSprNav + 5) then
  53.               renseigne(getAt(gTraduit, 27), "bold", " ", gMessSty2, 1)
  54.             end if
  55.             if gSurvolAct = g1erSprLoc then
  56.               set monTxt1 to " "
  57.               set monTxt2 to " "
  58.               set nomBt to word 1 of the name of cast MsCast
  59.               if nomBt = "BTGOEI" then
  60.                 set monTxt1 to getAt(gTraduit, 66)
  61.                 set monTxt2 to getAt(gListNomPhy, gSujAct)
  62.               end if
  63.               if nomBt = "BTGPOS" then
  64.                 set monTxt1 to getAt(gTraduit, 50)
  65.                 set monTxt2 to " "
  66.               end if
  67.               renseigne(monTxt1, "bold", monTxt2, "bold, italic", 1)
  68.             end if
  69.             if gSurvolAct = (g1erSprLoc + 1) then
  70.               set monTxt1 to " "
  71.               set monTxt2 to " "
  72.               repeat with i = 1 to 35
  73.                 if inside(MouseLoc, getAt(gListRecPhy, i)) = 1 then
  74.                   set monTxt1 to getAt(gTraduit, 101)
  75.                   set monTxt2 to getAt(gListNomPhy, i)
  76.                   gBarChron(fleche, 1, getAt(gListTimPhy, i), 1)
  77.                   exit repeat
  78.                 end if
  79.               end repeat
  80.               renseigne(monTxt1, "bold", monTxt2, "bold,italic", 7)
  81.             end if
  82.             if gSurvolAct = (g1erSprLoc + 2) then
  83.             end if
  84.             if gSurvolAct = (g1erSprLoc + 3) then
  85.               renseigne(getAt(gTraduit, 40), "bold", getAt(gListNomPhy, gSujAct), "bold,italic", 7)
  86.             end if
  87.           else
  88.             gBarChron(fleche, 0, 1, 1)
  89.             renseigne(gMessDef1, "bold", gMessDef2, gMessSty2, -1)
  90.           end if
  91.           set gSurvolPrec to gSurvolAct
  92.         end if
  93.       end if
  94.     else
  95.       if (MsCast <> 0) and (MsCast <> -1) then
  96.         if the number of words in the name of cast MsCast = 2 then
  97.           if (word 2 of the name of cast MsCast = "1") or (word 2 of the name of cast MsCast = "0") then
  98.             curseur(1)
  99.           else
  100.             curseur(-1)
  101.           end if
  102.         else
  103.           curseur(-1)
  104.         end if
  105.       else
  106.         curseur(-1)
  107.       end if
  108.     end if
  109.   end if
  110. end
  111.